home *** CD-ROM | disk | FTP | other *** search
- object FormReviews: TFormReviews
- Left = 331
- Top = 175
- BorderStyle = bsDialog
- Caption = 'PC Gamer DISC'
- ClientHeight = 449
- ClientWidth = 632
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- KeyPreview = True
- Position = poScreenCenter
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnKeyDown = FormKeyDown
- PixelsPerInch = 120
- TextHeight = 17
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 632
- Height = 449
- AutoSize = True
- OnMouseMove = AllMouseMove
- end
- object LabelReviewsDatabase: TLabel
- Left = 360
- Top = 0
- Width = 131
- Height = 18
- Caption = 'Reviews Database'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object LabelTitle: TLabel
- Left = 120
- Top = 62
- Width = 31
- Height = 17
- Caption = 'Title:'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object DBText1: TDBText
- Left = 120
- Top = 84
- Width = 313
- Height = 69
- DataField = 'TITLE'
- DataSource = ReviewsDataSource
- Font.Charset = ANSI_CHARSET
- Font.Color = clRed
- Font.Height = -23
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- WordWrap = True
- end
- object LabelRating: TLabel
- Left = 456
- Top = 62
- Width = 46
- Height = 17
- Caption = 'Rating:'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object DBText2: TDBText
- Left = 456
- Top = 84
- Width = 33
- Height = 29
- DataField = 'RATING'
- DataSource = ReviewsDataSource
- Font.Charset = ANSI_CHARSET
- Font.Color = clRed
- Font.Height = -23
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- WordWrap = True
- end
- object Label4: TLabel
- Left = 493
- Top = 85
- Width = 17
- Height = 24
- Caption = '%'
- Color = clWhite
- Font.Charset = ANSI_CHARSET
- Font.Color = clRed
- Font.Height = -20
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object LabelCategory: TLabel
- Left = 120
- Top = 157
- Width = 63
- Height = 17
- Caption = 'Category:'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object LabelIssue: TLabel
- Left = 456
- Top = 157
- Width = 39
- Height = 17
- Caption = 'Issue:'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object DBText3: TDBText
- Left = 120
- Top = 176
- Width = 62
- Height = 18
- AutoSize = True
- DataField = 'CATEGORY'
- DataSource = ReviewsDataSource
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object DBText4: TDBText
- Left = 456
- Top = 176
- Width = 62
- Height = 18
- AutoSize = True
- DataField = 'ISSUE_PAGE'
- DataSource = ReviewsDataSource
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object LabelPublisher: TLabel
- Left = 120
- Top = 202
- Width = 65
- Height = 17
- Caption = 'Publisher:'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object DBText5: TDBText
- Left = 120
- Top = 221
- Width = 62
- Height = 18
- AutoSize = True
- DataField = 'CONAME'
- DataSource = ReviewsDataSource
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object LabelHighs: TLabel
- Left = 120
- Top = 247
- Width = 48
- Height = 23
- Caption = 'Highs'
- Color = clWhite
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -20
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object LabelLows: TLabel
- Left = 290
- Top = 247
- Width = 47
- Height = 23
- Caption = 'Lows'
- Color = clWhite
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -20
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object LabelBottomLine: TLabel
- Left = 460
- Top = 247
- Width = 99
- Height = 23
- Caption = 'BottomLine'
- Color = clWhite
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -20
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object LabelTypeStr: TLabel
- Left = 120
- Top = 426
- Width = 79
- Height = 16
- Caption = 'Type a string:'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object LabClose: TLabel
- Left = 20
- Top = 360
- Width = 41
- Height = 18
- Alignment = taCenter
- Caption = 'Close'
- Color = clBlack
- Font.Charset = ANSI_CHARSET
- Font.Color = clWhite
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- WordWrap = True
- OnClick = LabCloseClick
- OnMouseMove = AllMouseMove
- end
- object LabMenu: TLabel
- Left = 20
- Top = 72
- Width = 40
- Height = 36
- Alignment = taCenter
- Caption = 'Main Menu'
- Color = clBlack
- Font.Charset = ANSI_CHARSET
- Font.Color = clWhite
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- WordWrap = True
- OnClick = LabMenuClick
- OnMouseMove = AllMouseMove
- end
- object LabSearch: TLabel
- Left = 15
- Top = 128
- Width = 50
- Height = 36
- Alignment = taCenter
- Caption = 'Search Dialog'
- Color = clBlack
- Font.Charset = ANSI_CHARSET
- Font.Color = clWhite
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- WordWrap = True
- OnClick = LabSearchClick
- OnMouseMove = AllMouseMove
- end
- object DBText6: TDBText
- Left = 456
- Top = 221
- Width = 62
- Height = 18
- AutoSize = True
- DataField = 'EDITOR_S_C'
- DataSource = ReviewsDataSource
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object ReviewsNavigator: TDBNavigator
- Left = 432
- Top = 37
- Width = 188
- Height = 20
- DataSource = ReviewsDataSource
- VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- TabStop = True
- end
- object DBMemo1: TDBMemo
- Left = 120
- Top = 277
- Width = 160
- Height = 130
- BorderStyle = bsNone
- Color = clWhite
- DataField = 'HIGHS'
- DataSource = ReviewsDataSource
- ReadOnly = True
- TabOrder = 1
- end
- object Panel1: TPanel
- Left = 120
- Top = 271
- Width = 500
- Height = 1
- BevelOuter = bvNone
- Color = clRed
- TabOrder = 2
- end
- object DBMemo2: TDBMemo
- Left = 290
- Top = 276
- Width = 160
- Height = 130
- BorderStyle = bsNone
- Color = clWhite
- DataField = 'LOWS'
- DataSource = ReviewsDataSource
- ReadOnly = True
- TabOrder = 3
- end
- object DBMemo3: TDBMemo
- Left = 460
- Top = 276
- Width = 160
- Height = 130
- BorderStyle = bsNone
- Color = clWhite
- DataField = 'BOTTOMLINE'
- DataSource = ReviewsDataSource
- ReadOnly = True
- TabOrder = 4
- end
- object EditSearch: TEdit
- Left = 204
- Top = 422
- Width = 188
- Height = 25
- Color = clSilver
- TabOrder = 5
- OnKeyDown = EditSearchKeyDown
- end
- object BtnSearch: TButton
- Left = 402
- Top = 422
- Width = 97
- Height = 25
- Hint = 'You can also press Enter'
- Caption = 'Search'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- OnClick = BtnSearchClick
- end
- object BtnSearchAgain: TButton
- Left = 506
- Top = 422
- Width = 121
- Height = 25
- Hint = 'You can also press Control+Enter'
- Caption = 'Search Again'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- OnClick = BtnSearchAgainClick
- end
- object ReviewsTable: TMDBFTable
- About = 'MiTeC DBF Table 1.35 - � 1997-98, MichaL MutL'
- FileName = 'reviews.dbf'
- SaveData = False
- Left = 16
- Top = 72
- end
- object ReviewsDataSource: TDataSource
- DataSet = ReviewsTable
- Left = 16
- Top = 104
- end
- object PlacementInfo: TFormPlacement
- IniFileName = 'PCGamer_Lx1'
- IniSection = 'FormReviews'
- UseRegistry = True
- Left = 24
- Top = 280
- end
- end
-